Option Explicit
Sub A_Sample057()
    Dim myWb  As Workbook
    Set myWb = ActiveWorkbook
    MsgBox myWb.Name
    Set myWb = Nothing	'
End Sub
